home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 426-450 / disk_438 / toollib / mymacros.i < prev    next >
Text File  |  1992-05-06  |  693b  |  51 lines
  1. *
  2. * mymacros.i
  3. *
  4. * Author  : Jan van den Baard
  5. *
  6.  
  7.     IFND    MYMACROS_I
  8. MYMACROS_I  SET 1
  9.  
  10. libcall macro
  11.         ifc     '','\1'
  12.         fail
  13.         mexit
  14.         endc
  15.         jsr     _LVO\1(a6)
  16.         endm
  17.  
  18. cldat   macro
  19.         ifc     '','\1'
  20.         fail
  21.         mexit
  22.         endc
  23.         moveq   #0,\1
  24.         endm
  25.  
  26. cladr   macro
  27.         ifc     '','\1'
  28.         fail
  29.         mexit
  30.         endc
  31.         suba.l  \1,\1
  32.         endm
  33.  
  34. inc     macro
  35.         ifc     '','\1'
  36.         fail
  37.         mexit
  38.         endc
  39.         addq.\0  #1,\1
  40.         endm
  41.  
  42. dec     macro
  43.         ifc     '','\1'
  44.         fail
  45.         mexit
  46.         endc
  47.         subq.\0  #1,\1
  48.         endm
  49.  
  50.     ENDC    !MYMACROS_I
  51.